﻿Public Class CTLogTransacciones 
Inherits CTOrdenMarketListed 


Private _FechaRegistro As Date
Private _FolioDecalog  As String 
Private _NomArchivo    As String 
Private _NomUsuario    As String 


Public Sub new()

End Sub

 
 Public Sub new(ByRef transacListed As CTOrdenMarketListed, ByVal pfechaRegistro As Date)
   
   With transacListed 

        Me.IdTran       = .IdTran 
        Me.Portafolio   = .Portafolio 
        Me.Instrumento  = .Instrumento 
        Me.Precio       = .Precio 
        Me.CantidadTit  = .CantidadTit 
        Me.TipoTran     = .TipoTran 
        Me.Strategia    = .Strategia 
        Me.FecTran      = .FecTran 
        Me.FecLiq       = .FecLiq 
        Me.Broker       = .Broker 

   End With
   
   _FechaRegistro  = pfechaRegistro

 End Sub

 Public Sub new(ByRef transacListed As CTOrdenMarketListed, ByVal pFechaRegistro As Date, ByVal pFolioDecalog As String, Optional ByVal pDescripcion As String = "")
   
   With transacListed 

        Me.IdTran         = .IdTran 
        Me.Portafolio     = .Portafolio 
        Me.Instrumento    = .Instrumento 
        Me.Precio         = .Precio 
        Me.CantidadTit    = .CantidadTit 
        Me.TipoTran       = .TipoTran 
        Me.Strategia      = .Strategia 
        Me.FecTran        = .FecTran 
        Me.FecLiq         = .FecLiq 
        Me.Broker         = .Broker 

        Me.MsgValidacion  = pDescripcion 

   End With
   
   _FechaRegistro  = pfechaRegistro     
   _FolioDecalog   = pFolioDecalog 
   

 End Sub

   

Public Property FechaRegistro() As date
    Get
        Return _FechaRegistro 
    End Get
    Set(ByVal value As date)
        _FechaRegistro = value
    End Set
End Property


Public Property FolioDecalog() As String 
    Get
        Return _FolioDecalog 
    End Get
    Set(ByVal value As String)
        _FolioDecalog = value
    End Set
End Property


Public Property NomArchivo() As String 
    Get
        Return _NomArchivo 
    End Get
    Set(ByVal value As String)
        _NomArchivo = value
    End Set
End Property


Public Property NomUsuario() As String 
    Get
        Return _NomUsuario 
    End Get
    Set(ByVal value As String)
        _NomUsuario = value
    End Set
End Property



End Class
